unit URelatorioDetalheRetorno;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UrelatorioBase, RLPDFFilter, RLXLSFilter, RLFilters,
  RLHTMLFilter, RLDraftFilter, DB, DBTables, RLReport, StdCtrls, ExtCtrls,
  Buttons, DBCtrls;

type
  TFRelatorioDetalheRetorno = class(TFrelatorioBase)
    Edit1: TEdit;
    Edit2: TEdit;
    QLocal: TQuery;
    DSLocal: TDataSource;
    Label3: TLabel;
    DBLCBLocal: TDBLookupComboBox;
    Label4: TLabel;
    Label5: TLabel;
    RLBand2: TRLBand;
    RLLabel3: TRLLabel;
    RLLabel4: TRLLabel;
    RLLabel5: TRLLabel;
    RLLabel6: TRLLabel;
    RLLabel7: TRLLabel;
    RLLabel8: TRLLabel;
    RLLabel9: TRLLabel;
    RLLabel2: TRLLabel;
    RLDBText2: TRLDBText;
    RLDBText3: TRLDBText;
    RLLabel1: TRLLabel;
    RLDBText11: TRLDBText;
    RLLabel10: TRLLabel;
    RLGroup1: TRLGroup;
    RLBand3: TRLBand;
    RLDBText4: TRLDBText;
    RLDBText5: TRLDBText;
    RLDBText6: TRLDBText;
    RLDBText7: TRLDBText;
    RLDBText8: TRLDBText;
    RLDBText9: TRLDBText;
    RLDBText10: TRLDBText;
    RLDBText12: TRLDBText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnPesquisarClick(Sender: TObject);
    procedure btnExecutarClick(Sender: TObject);
    procedure RLGroup1AfterPrint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRelatorioDetalheRetorno: TFRelatorioDetalheRetorno;
  SALDO:integer;

implementation

{$R *.dfm}

procedure TFRelatorioDetalheRetorno.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
   FRelatorioDetalheRetorno.Release;
   FRelatorioDetalheRetorno := Nil;
end;

procedure TFRelatorioDetalheRetorno.btnPesquisarClick(Sender: TObject);
begin

  QPesquisa.Close;
  QPesquisa.SQL.Clear;
  QPesquisa.SQL.Add(' select '+
                    ' movimento_nf_item.movnf_nfnumero,'+
                    ' movimento_nf_item.movnf_nfnumero_origem,'+
                    ' movimento_nf_item.movnf_nfserie,'+
                    ' movimento_nf_item.movnf_nfserie_origem, '+
                    ' movimento_nf_item.movnf_local_desc,'+
                    ' movimento_nf_item.movnf_origem,'+
                    ' movimento_nf_item.movnf_qtd,'+
                    ' movimento_nf_item.movnf_datamov,'+
                    ' movimento_nf_item.movnf_mov_natureza,'+
                    ' movimento_nf_item.movnf_valorunitario,'+
                    ' movimento_nf_item.movnf_produto,'+
                    ' movimento_nf_item.movnf_produto_desc,'+
                    ' movimento_nf_item.movnf_cfop_origem '+
                    ' from movimento_nf_item '+
                    ' where '+
                    ' (movimento_nf_item.movnf_nfnumero_origem = '+QuotedStr(Edit1.Text)+' )and '+
                    ' (movimento_nf_item.movnf_nfserie_origem = '+QuotedStr(Edit2.Text)+')and '+
                    ' (movimento_nf_item.movnf_local = '+IntToStr(DBLCBLocal.KeyValue)+') '+
//                    ' order by movimento_nf_item.movnf_datamov ');
                    ' order by MOVNF_PRODUTO,movnf_datamov ');

  QPesquisa.Open;


  inherited;
end;

procedure TFRelatorioDetalheRetorno.btnExecutarClick(Sender: TObject);
begin

  SALDO:=0;
  inherited;

end;

procedure TFRelatorioDetalheRetorno.RLGroup1AfterPrint(Sender: TObject);
begin

  SALDO:=0;
  inherited;

end;

end.
